home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / decoder / formular.dir / 00076_Druckbefehl Bitmap.ls < prev    next >
Encoding:
Text File  |  1997-02-10  |  686 b   |  38 lines
  1. on druckvorbereitung
  2.   put EMPTY into field "bestelltext"
  3.   set the castNum of sprite 15 to 90
  4.   updateStage()
  5.   FELD1()
  6.   FELD2()
  7.   FELD3()
  8.   FELD4()
  9.   FELD5()
  10.   FELD6()
  11.   if the castNum of sprite 24 = 101 then
  12.     antrag()
  13.   end if
  14.   if field "stk1" <> EMPTY then
  15.     ├╝bertrag1()
  16.   end if
  17.   if field "stk2" <> EMPTY then
  18.     ├╝bertrag2()
  19.   end if
  20.   if field "stk3" <> EMPTY then
  21.     ├╝bertrag3()
  22.   end if
  23.   if field "stk4" <> EMPTY then
  24.     ├╝bertrag4()
  25.   end if
  26.   if field "stk5" <> EMPTY then
  27.     ├╝bertrag5()
  28.   end if
  29.   if field "stk6" <> EMPTY then
  30.     ├╝bertrag6()
  31.   end if
  32.   if the value of field "SummelagerA" > 249 then
  33.     Versandfrei()
  34.   else
  35.     Versandgeb()
  36.   end if
  37. end
  38.